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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUI PRENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WI 
CLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


COPIED 
TH THE 


IN 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PaanSte Reto NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MATH LIBRARY 


+ 
ABSTRACT: 
This module contains MTHSDMAX1: ; : 
Return the maximum of n double-precision floating-point values. 


VERSION: 0 
HISTORY: 


AUTHOR : é 
Jonathan M. Taylor, 14-JUL-77: Version 0 


MODIFIED BY: 
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-SBTTL HISTORY : Detailed Current Edit History 
E 


dit History for Version 0 of MTHSDMAX1 


; = remove MTHSFLAG_JACKET. TNH 26-July-78 
§ ; . + ma a Aumber and copyright rngtice JBS 16-NOV-78 
3% - Add to the PSECT directive. JBS 22-DEC-78 


WieTORT "< “betailed Current Edit Siang "OrSEEARBS 94:38:98 PANANTE SRESArHOmAg? mars1 29° <5, 
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0000 
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-SBTTL DECLARATIONS 


INCLUDE FILES: 
oerr.mar 


EXTERNAL SYMBOLS: 
NONE 


MACROS: 
NONE 


PSECT DECLARATIONS: 


PS 


ECT 


_MTHSCODE 


EQUATED SYMBOLS: 
NONE 


OWN STORAGE: 
NONE 


PIC, SHR, LONG, EXE, NOWRT 


ro 


tt DMAX1 function 16-SEP-1984 01:18: AX/VMS Macro V04-00 Page 4 
1-00 MTHSDMAX1 ae 91:38:93 EMTHRTL. SREATHDMAXS «MAR; 1 ° dy) 
00 31 .SBTTL MTHSDMAX1 | 
3 z++ 
94 ; FUNCTIONAL DESCRIPTION: 
0 $6 ; Returns the maximum of n arguments, n is greater or equal to 1. 
97 ; 
op 44 ; CALLING SEQUENCE: 
$ 100 3 Maximum.wd.v = MTHSDMAX1 ({arg.rd.r}) 
0000 101; 
4 1 § 3 
0 1 3; INPUT PARAMETERS: 
000 104 ; The nm input parameters are double-precision floating-point 
000 105; values and are call-by-reference. 
3808 136 3 
000 107; 
0000 108 ; IMPLICIT INPUTS: 
0000 109; NONE 
0000 110; 
0000 111 ; OUTPUT PARAMETERS: 
0000 a 3 NONE 
0000 113; 
0000 114 ; IMPLICIT OUTPUTS: 
0000 115; NONE 
0000 116; 
0000 117 ; COMPLETION CODES: 
0000 118; NONE 
0000 119; 
0000 120 ; SIDE EFFECTS: 
0000 121; Reserved Operand exception can occur. 
0000 1 ¢ $ 
0000 123; 
0000 124 ;-- 
0000 125 
0004 0000 126 -ENTRY MTHSDMAX1, “M<R2> 
52 6C 9A 4 127 MOVZBL (AP), R2 3; R2 = org count 
8C D5 000 128 TSTL (AP) + 3; AP => first arg 
50 9C 70 0007 129 1$: MOVD a(AP)+, RO ; RO/R1 = trial max 
08 11 4 139 BRB 3$ 3; check arg count 
50 008C 71 O00C 1 ¢ 2$: CMPD @O(AP), RO ; if this arg is greater than trial max 
F5 14 0010 1 BGTR 1$ ; then it becomes trial max 
86 D5 Baie 134 TSTL (AP)+ : else ignore it 
F5 52 FS 0014 135 38: SOBGTR R2, 2% ; return if arg count exausted 
04 0017 136 RET 
0018 ia 
0018 138 


MT! 
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Symbol table 
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MTHSDMAX1 00000000 RG 01 
foe mene wen wemaowe} 
! ;_Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- (ABS, 00000000 < 0.) 00¢ QO.) NOPIC USR CON ABS LCL oe NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0000001 ¢ 6.3) OC ed PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
tewrocewrenenmeeeenee ews an aaa a } 
H _Per formance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 30 Oh 00: 08-08 0:00:00. 37 
zonnene processing 125 00:00:00.58 0:00:04.00 
69 88: 60.00 00 00:00: 202.18 
Synbol table sort 0:00:00.00 00:00:0 90 
s2 40 BF BO Ob OF 00:00:01.37 
aS, table output 1 00:60:0 -01 00:00:00.01 
Psect synopsis output 3 00:00:00.01 00:00:00.19 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 270 00:00:01.45 00:00:08.11 


The working 
1387 bytes ( 
There were 1 


et Limit was 750 pages 

pages) of virtua memory were used to buffer the intermediate code. 
pages of symbol table space of a} to hold 1 non-local and 3 local symbols. 
138 source Lines were read in Pass produc beg object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


Geoceceseoseeecsecscesesoso$ 


Macro library name 

“S255SDUA28:(SYSLIBJSTARLET.MLB;2 0 tS i 

0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 

MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDMAX1/0BJ=OBJ$:MTHDMAX1 MSRC$:MTHDMAX1/UPDATE=(ENHS :MTHDMAX1) 
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